%
dim Titletop,c,id
c=3
id=SafeRequest("id",1)
action=FormatSQL(SafeRequest("action",0))
set rs=server.CreateObject("adodb.recordset")
if id<>"" then
rs.open "select * from product where id="&id,conn,1,3
else
response.Redirect "index.asp"
end if
name = rs("name")
grade = rs("grade")
photo = rs("photo")
detail = rs("detail")
content = rs("content")
contentt = rs("contentt")
adddate = rs("adddate")
content = rs("content")
contentt = rs("contentt")
viewnum = rs("viewnum")
rs("viewnum")=viewnum + 1
Title = rs("name") '########### 网页名称
rs.update
rs.close
set rs = nothing
Titletop = "案例展示" '########### 网页名称
%>
<%=Title%>-<%=Titletop%>:<%=webname%>-<%=VPcopyright%>
已浏览 <%=viewnum%> 次 发布时间:<%=adddate%> 责任编辑: <%=grade%> |
案例说明
<%=detail%>
应用领域
<%=contentt%>
技术荣誉
<%=content%>
上一案例:<%
set rsa=server.CreateObject("adodb.recordset")
rsa.open "select id,name from product where id<"&id&" order by id desc",conn,1,1
If rsa.eof and rsa.bof Then
response.write "[本类巳是最新发布]"
Else
name = rsa("name")
ids = rsa("id")
rsa.close
set rsa = nothing
%>[<% if len(name)>21 then
response.write left(name,19)&"..."
Else
response.write name
end if %>]<%end if%>
|
下一案例:<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select id,name from product where id>"&id&" order by id asc",conn,1,1
If rs.eof and rs.bof Then
response.write "[本类巳是最新发布]"
Else
name = rs("name")
ids = rs("id")
rs.close
set rs = nothing
%>[<% if len(name)>21 then
response.write left(name,19)&"..."
Else
response.write name
end if %>]<%end if%>
|
|